Top 10k strings from Study Maths 2 - 9-13 years - Estimate the Angle (1983)(Scisoft).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 angle     
   2 oldscore>25
   2 ;"ESTIMATE THE ANGLE"
   1 turn=turn+1
   1 score=score+10
   1 rad=angle*2
   1 pretty tune  
   1 oldscore=score
   1 oldscore=0
   1 main delay loop***************************************
   1 instructions
   1 if a right angle
   1 g$(len)=" "
   1 first turn only gives angles up to 90 degrees. if good enough score second turn gives angles up to 180 and third gives angles up to 270
   1 error trapping routine (trailing  spaces)
   1 error trapping routine (pressed enter only)
   1 error trapping routine (not a number
   1 draw other line
   1 draw base line
   1 convert to capitals****************************
   1 clear rest of the screen
   1 clear any error messages
   1 check we have nothd same angle before
   1 b$="you can't have angles above 360"
   1 b$="very good"
   1 b$="thats a pretty wild guess!"
   1 b$="pretty good estimate !"
   1 b$="perfect.  brilliant!!!"
   1 b$="number "+
   1 b$="not a bad guess !"
   1 b$="a fair way out !"
   1 b$="Here are five angles to try"
   1 b$="ESTIMATE THE ANGLE"
   1 b$="** "+a$+" **"
   1 angle in radians
   1 a(p)=angle
   1 a(n)=angle
   1 Z$="Estimate the Angle":
   1 Estimate the Anglev
   1 ESTIMATE THE ANGLE
   1 ;a(p);" degrees"
   1 ;"understand. Please try again":
   1 ;"understand them! try again":
   1 ;"the angle was ";
   1 ;"thats a funny number. I don't";
   1 ;"press enter ";("for the next angle"
   1 ;"please press y or n":
   1 ;"no decimals please. I don't";
   1 ;"You have to try and guess"''"  what the angle is in degrees !"
   1 ;"TYPE IN YOUR";
   1 ;"STILL LOADING";
   1 ;"Please type in your first name"'" and then press the key marked"'
   1 ;"PRESS A KEY TO TRY AGAIN"
   1 ;"PRESS ";
   1 ;"LEAVE TAPE RUNNING":
   1 ;"Just your first name please":
   1 ;"In this game the computer will"''" show you an angle...."''
   1 ;"Hello ";a$
   1 ;"HERE IS A BAR CHART OF YOUR"'"ANSWERS ";A$
   1 ;"GUESS AND THEN";
   1 ;"Do you want instructions ?";
   1 ;" YOUR GUESS ";
   1 ;" ";g(p);"
   1 ;"              "
   1 ;"                                ";:
   1 ;"                                ";
   1 (angle-g(p))
   1 " like this..."
   1 "                                ":
   1  to continue";
   1  subroutine to display sentence slowly
   1  TO START THE GAME."
   1  Scisoft 1983";
   1            ";